home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic new SourceCode and Projects / Personal Organiser / movefrmmod.bas < prev    next >
Encoding:
BASIC Source File  |  2000-08-11  |  360 b   |  11 lines
  1. Attribute VB_Name = "movefrmmod"
  2. Declare Sub ReleaseCapture Lib "user32" ()
  3. Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
  4.  
  5.  
  6. Public Sub FormDrag(TheForm As Form)
  7.     ReleaseCapture
  8.     Call SendMessage(TheForm.hwnd, &HA1, 2, 0&)
  9. End Sub
  10.  
  11.